
Partial Class Admin_DeleteUser
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        If Me.Request.QueryString("Username") Is Nothing Then
            Response.Redirect("~/admin/ManageUsers.aspx")
        Else
            Dim userName As String = CStr(Request.QueryString("username"))
            ClubStarterKit.Web.Members.DeleteUser(userName)
            Response.Redirect("~/admin/ManageUsers.aspx")
        End If


    End Sub
End Class
